#include "rwmake.ch"
/*///////////////////////////////////////////////////////////////////////////////////////////////////////////
Programa.......: GSCOTAI()          Data. Criacao..: 01/03/2008
Objetivo.........: Atualizar os campos SALDO/FATURAD da tabela
                      : SZP onde sao cadastrados as cotas por vendedor
Modulo..........: Faturamento/Cenario de Vendas/Cota por Vendedor
Proramador....: Wanderson Fernande de Souza
*/////////////////////////////////////////////////////////////////////////////////////////////////////////////                      
User Function GSQUU()

_Vend1:=space(3)
_Vend2:=Space(3)
_ProdI:=Space(6)
_ProdF:=Space(6)
_Perct:=0
@ 96,42 TO 350,505 DIALOG oDlg5 TITLE "Rotina de Acertos de Saldo na Cota"
@ 20,14 SAY OemToAnsi("Este programa tem o objetivo a atualizacao a cota de cada item")
@ 30,14 SAY OemToAnsi(".")
@ 8,10 TO 105,222
@ 050,014 Say "Vendedor  de: " 
@ 050,060 Get _Vend1 PICTURE "999" SIZE 20,15 VALID Existcpo("SA3") F3 "SA3"
@ 070,014 Say "Vendedor ate: " 
@ 070,060 Get _Vend2 PICTURE "999" SIZE 20,15 VALID Existcpo("SA3") F3 "SA3"
@ 050,100 Say "Produto  de: " 
@ 050,136 Get _Prodi PICTURE "999999" SIZE 30,15 VALID Existcpo("SB1") F3 "SB1"
@ 070,100 Say "Produto ate: " 
@ 070,136 Get _ProdF PICTURE "999999" SIZE 30,15 VALID Existcpo("SB1") F3 "SB1"
@ 090,014 Say "Percentual: " 
@ 090,060 Get _Perct Picture "@E 999.99"
@ 110,020 Button OemToAnsi("_Processar Agora") Size 66,16 ACTION ATUALIZA() 
@ 110,110 Button OemToAnsi("_Cancelar Processamento") Size 70,16 ACTION (Exec := .F.,Close(oDlg5))
ACTIVATE DIALOG oDlg5
Return nil


***************************
Static Function Atualiza()
***************************

dbSelectArea("SZP")
ProcRegua(SZP->(RecCount()))
dbSetOrder(3)
dbSeek(xFilial())
While !Eof() .and. ZP_FILIAL==xFilial("SZP") 
//If SZP->ZP_VENDEDOR ==  _Vend1 .AND. SZP->ZP_VENFERDEDOR <= _Vend2
      RecLock("SZP",.F.)
      Replace ZP_SALDO With ZP_CAIXAS
      Replace ZP_FATURAD With 0
      Replace ZP_ULTVIRA With date()
      MsUnlock()      
      IncProc()
      DbSkip()
//Endif      
EndDo
Return
